home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #6 / Amiga Plus CD - 2004 - No. 06.iso / AmigaPlus / Begleitmaterial / amiganews / Anzeige_Browser / AWeb_APL_020 / Install < prev    next >
Text File  |  2003-04-06  |  8KB  |  290 lines
  1. ; $VER: Install_AWeb_APL (15 March 2003)
  2. ; Description: Installer script for AWeb
  3.  
  4. (set cpu (database "cpu"))
  5. (set cpu020 (and (<> cpu "68000") (<> cpu "68010")))
  6. (set v39 (>= (/ (getversion "exec.library" (resident)) 65536) 39))
  7.  
  8. (set awn (getversion "AWeb"))
  9. (set awv (/ awn 65536))
  10. (set awr (- awn (* awv 65536)))
  11.  
  12. ; all strings used in this installer script
  13. (set #need39 "This program requires OS 3.0 or later to function.")
  14. (set #needcpu "This archive was designed for the 68020 processor, please download the correct version for your CPU.")
  15. (set #nohelp "No help available.")
  16. (set #welcome
  17.    (cat "\n\nAWeb APL is a fast, multithreaded WWW browser for AmigaOS and MorphOS.\n\n"
  18.         "AWeb APL runs with a wide variety of TCP-stacks, including Genesis and Miami.\n\n"
  19.       ("\n\nThis installation procedure will install the AWeb-APL browser version %ld.%ld on your system.\n" awv awr)
  20.    )
  21. )
  22. (set #classact
  23.    (cat "IMPORTANT\n\n"
  24.         "This AWeb APL needs the ClassAct GUI package or ReAction to run.\n"
  25.         "The ClassAct package is not included in the APL archive, but is freely available"
  26.         "from Aminet.\n\n"
  27.         "The ReAction package is included as part of the AmigaOS in version 3.5 and above."
  28.    )
  29. )
  30.  
  31. (set #destdir-prompt "Please select the directory where you want AWeb APL installed.\n(If you do not accept the default, a directory 'AWeb' will be created there.)")
  32. (set #destdir-help "A directory for AWeb will be created here. By accepting the default directory, most of the files don't have to be copied.")
  33. (set #installing "Installing ")
  34. (set #languages-prompt "Please select which language catalog(s) you want to install")
  35. (set #memory-prompt "Is your Amiga equipped with more than 2MB of memory?")
  36. (set #memory-help "AWeb runs on a 2MB Amiga, but needs a special setup on such a machine. If you click the 'only 2MB' button, the appropriate settings will be installed.\n\nYou can always change the settings after installation.")
  37. (set #fonts-prompt "Do you want to install the \"times.font\" and \"courier.font\" sizes 30 and 36?")
  38. (set #fonts-help 
  39.    (cat "In order to provide AWeb with a consistent set of fonts, four fonts are included "
  40.       "in this archive, times/30, times/36, courier/30 and courier/36.\n\n"
  41.       "Because AWeb uses these fonts by default, page headers might look really awful "
  42.       " if you don't install these fonts. It is highly recommended that you install them."
  43.    )   
  44. )
  45. (set #fixfonts-prompt "The FixFonts utility will be run to make the newly added fonts available.")
  46. (set #fixfonts-help
  47.    (cat "The FixFonts utility is needed to make the newly added fonts available to the system.\n\n"
  48.       "If you intend to use the fonts from this archive, you are strongly encouraged to "
  49.       "run FixFonts now.\n\n"
  50.       "Note that running this program may take a while."
  51.    )
  52. )
  53.  
  54. (set #readme "Displaying the version notes readme...")
  55. (set #makeasgn "Making AWeb_APL assignment to S:User-Startup")
  56. (set #bye 
  57.    (cat "In case you need help configuring or using AWeb APL, pressing the HELP key "
  58.         "when AWeb is active will bring up the documentation.\n\n\n"
  59.         "Please check the _Plugins_  drawer included in this archive for setting up internal image decoders."
  60.    )
  61. )
  62.  
  63. ; ---------------------------------------------------------------------------
  64.  
  65. (complete 0)
  66.  
  67. (if (not v39)
  68.    (abort #need39)
  69. )
  70. (if (not (>= cpu "68020"))
  71.     (abort #needcpu)
  72. )
  73.  
  74. (message #welcome)
  75.  
  76. (run "run >NIL: SYS:Utilities/MultiView Docs/AWeb.iff" (prompt #welcome))
  77.  
  78. (set @source-dir (pathonly @icon))
  79.  
  80. (set defdir
  81.    (askdir
  82.       (prompt #destdir-prompt)
  83.       (help #destdir-help)
  84.       (default @source-dir)
  85.    )
  86. )
  87. (set @default-dest defdir)
  88.  
  89. (set nocopy (= @source-dir @default-dest))
  90.  
  91. (message #classact)
  92.  
  93. (if (not nocopy)
  94.     (
  95.     (set @default-dest (tackon @default-dest "AWeb_APL"))
  96.     
  97.        (set update-aweb (exists @default-dest))
  98.     
  99.     (if (not update-aweb)
  100.         (makedir @default-dest 
  101.             (prompt #creating-dir @default-dest) 
  102.                (infos)
  103.         )
  104.        )
  105.       (complete 10)
  106.  
  107.       (copyfiles
  108.          (source "")
  109.          (dest @default-dest)
  110.          (choices "AWeb" "AWebCfg" "AWebJS")
  111.          (prompt #installing "AWeb")
  112.          (infos)
  113.       )
  114.       (complete 20)
  115.     (copyfiles
  116.      (source "")
  117.      (dest @default-dest)
  118.      (choices "Storage")
  119.      (prompt #installing "AWeb")
  120.      (infos)
  121.     )
  122.     (complete 25)
  123.     (copyfiles
  124.          (source "")
  125.           (dest @default-dest)
  126.          (choices "aweblib")
  127.           (prompt #installing "AWeb")
  128.     )
  129.       (complete 30)
  130.  
  131.       (set cache-dir (tackon @default-dest "Cache"))
  132.       (if (not (exists cache-dir))
  133.          (
  134.             (makedir cache-dir
  135.                (prompt #creating-dir cache-dir)
  136.                (infos)
  137.             )
  138.          )
  139.       )
  140.       (complete 40)
  141.  
  142.     (copyfiles
  143.          (source "")
  144.           (dest @default-dest)
  145.          (choices "ReadMe" "Docs" "Icons" "Images" "Install_Animation" "Install_Buttons")
  146.           (prompt #installing "AWeb")
  147.           (infos)
  148.     )
  149.       (complete 50)
  150.       
  151.       (set languages
  152.          (askoptions
  153.             (choices "English" "ÃeÓtina (Czech)" "Dansk" "Deutsch" "Español"
  154.                "Français" "Greek" "Íslenska" "Italiano" "Nederlands" "Norsk"
  155.                "Polski" "Português" "Russian" "Srpski" "Suomi" "Svenska" "Türkçe")
  156.             (prompt #languages-prompt)
  157.             (help @askoptions-help)
  158.             (default 1)
  159.          )
  160.       )
  161.  
  162.       ; If any language calalogs are selected, copy them.
  163.  
  164.       (if (bitand languages 65534)
  165.          (
  166.             (set catdir (tackon @default-dest "Catalogs"))
  167.             (if (not (exists catdir))
  168.                (makedir catdir
  169.                   (prompt #creating-dir catdir)
  170.                     (infos)
  171.                )
  172.             )
  173.             (set bit 2)    ; English implementation, so there is no catalog for it
  174.             (set langnr 1)
  175.             (while (< langnr 18)
  176.                (if (bitand languages bit)
  177.                   (
  178.                      (set lang
  179.                         ; English is never selected from this list
  180.                         (select langnr "English" "ÃeÓtina" "Dansk" "Deutsch" "Español"
  181.                            "Français" "Greek" "Íslenska" "Italiano" "Nederlands" "Norsk"
  182.                            "Polski" "Português" "Russian" "Srpski" "Suomi" "Svenska" "Türkçe"
  183.                         )
  184.                      )
  185.                      (copyfiles
  186.                         (source (tackon "Catalogs" lang))
  187.                         (choices "aweb.catalog" "awebcfg.catalog")
  188.                         (dest (tackon catdir lang))
  189.                      )
  190.                   )
  191.                )
  192.                (set bit (shiftleft bit 1))
  193.                (set langnr (+ langnr 1))
  194.             )
  195.          )
  196.       )
  197.     )
  198. )
  199.  
  200. (complete 60)
  201.  
  202. ; Only ask if fonts should be installed in expert mode
  203. (if
  204.    (< @user-level 2)
  205.    (set #fonts 1)
  206.    (set #fonts
  207.       (askbool
  208.          (prompt #fonts-prompt)
  209.          (help #fonts-help)
  210.          (choices "Yes" "No")
  211.          (default 1)
  212.       )
  213.    )
  214. )
  215. (if
  216.    (> #fonts 0)
  217.    (
  218.       (copyfiles
  219.          (source "Fonts")
  220.          (dest "Fonts:")
  221.          (choices "times" "courier")
  222.          (prompt #installing "fonts")
  223.       )
  224.       (run "SYS:System/FixFonts"
  225.          (confirm)
  226.          (prompt #fixfonts-prompt)
  227.          (help #fixfonts-help)
  228.       )
  229.    )
  230. )
  231.  
  232. (complete 80)
  233.  
  234. (set #memory
  235.    (askbool
  236.       (prompt #memory-prompt)
  237.       (help #memory-help)
  238.       (choices "More than 2MB" "Only 2MB")
  239.       (default 1)
  240.   )
  241. )
  242. (set #ss_command
  243.    (cat
  244.           "Assign AWEB_APL: "
  245.           '"'
  246.           @default-dest
  247.           '"'
  248.    )
  249. )
  250.  
  251. (startup "AWEB_APL"
  252.  
  253.     (prompt #makeasgn)
  254.  
  255.     (help @startup-help)
  256.  
  257.     (command
  258.  
  259.         (#ss_command)
  260.     )
  261. )
  262.  
  263. (run "run >NIL: " | #ss_command)
  264.  
  265. (if (= #memory 0)
  266.    (
  267.       (makedir
  268.          (tackon @default-dest "T")
  269.       )
  270.       (makedir "ENVARC:AWeb_APL")
  271.       (copyfiles
  272.          (source "2MBsettings")
  273.          (dest "ENVARC:AWeb_APL")
  274.          (all)
  275.       )
  276.       (copyfiles
  277.          (source "ENVARC:AWeb_APL")
  278.          (dest "ENV:AWeb_APL")
  279.          (all)
  280.       )
  281.    )
  282. )
  283.  
  284. (complete 100)
  285.  
  286. (run "run >NIL: SYS:Utilities/MultiView ReadMe" (prompt #readme))
  287. (run "run >NIL: SYS:Utilities/MultiView plugins.txt" (prompt #readme))
  288.  
  289. (exit #bye)
  290.